home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS64 Extra Files / GEOLASER.CVT (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  15KB  |  77 lines

  1. GEOLASER
  2. PRG formatted GEOS file V1.0
  3. PSLetter(GC)
  4. TEXT GRABBER 128
  5. BLASTER'S CONVERTER V2.5
  6. GEOLASER    V2.1
  7. @Tony Requist
  8.     GEOLASER prints geoWrite files on the LaserWriter printer.
  9. HJJJJ v
  10. Error I:   
  11. *0$j,
  12. `8` ,
  13. `/saveobj save def /curSize -1 def /cf -1 def 
  14. saveobj restore 
  15. `=ENTZ^choy
  16. ;;;;;;;;;;;;
  17. copypage
  18. erasepage
  19. `$x0`
  20.      R$ 
  21.      R$ 
  22. %H ^"
  23.      R$ 
  24.      R$ 
  25.      R$ 
  26.      R$ 
  27.      R$ 
  28.      R$ 
  29.      R$ 
  30. ` PP 
  31.      R$h
  32.      R$L
  33. `HJJJJ r%h)
  34. /fonts[/Times-Roman/Times-Bold/Times-Italic/Times-BoldItalic/Helvetica/Helvetica-Bold/Helvetica-Oblique/Helvetica-BoldOblique/Symbol/Symbol/Symbol/Symbol/Courier/Courier-Bold/Courier-Oblique/Courier-BoldOblique/AvantGarde-Book/AvantGarde-Demi/AvantGarde-BookOblique/AvantGarde-DemiOblique/Bookman-Light/Bookman-Demi/Bookman-LightItalic/Bookman-DemiItalic/Helvetica-Narrow/Helvetica-Narrow-Bold/Helvetica-Narrow-Oblique/Helvetica-Narrow-BoldOblique/NewCenturySchlbk-Roman/NewCenturySchlbk-Bold/NewCenturySchlbk-Italic/NewCenturySchlbk-BoldItalic/Palatino-Roman/Palatino-Bold/Palatino-Italic/Palatino-BoldItalic/ZapfChancery-MediumItalic/ZapfChancery-MediumItalic/ZapfChancery-MediumItalic/ZapfChancery-MediumItalic/ZapfDingbats/ZapfDingbats/ZapfDingbats/ZapfDingbats]def
  35. /AmC 256 array def systemdict begin StandardEncoding AmC copy pop end /GeC 256 array def AmC GeC copy pop/FrC 256 array def AmC FrC copy pop/ItC 256 array def AmC ItC copy pop/SwC 256 array def AmC SwC copy pop/SpC 256 array def AmC SpC copy pop/UkC 256 array def AmC UkC copy pop/DaC 256 array def AmC DaC copy pop/SeC 256 array def AmC SeC copy pop GeC 64 /section put GeC 91 /Adieresis put GeC 92 /Odieresis put GeC 93 /Udieresis put GeC 123 /adieresis put GeC 124 /odieresis put GeC 125 /udieresis put GeC 126 /germandbls put FrC 64 /agrave put FrC 91 /degree put FrC 92 /ccedilla put FrC 93 /section put FrC 123 /eacute put FrC 124 /ugrave put FrC 125 /egrave put FrC 126 /dieresis put ItC 64 /sterling put ItC 91 /egrave put ItC 92 /eacute put ItC 93 /agrave put ItC 123 /ring put ItC 124 /igrave put ItC 125 /ograve put ItC 126 /ugrave put SwC 64 /eacute put SwC 91 /egrave put SwC 92 /ccedilla put SwC 93 /udieresis put SwC 123 /odieresis put SwC 124 /ugrave put SwC 125 /adieresis put SwC 126 /agrave put SpC 91 /Ntilde put SpC 92 /ccedilla put SpC 93 /questiondown put SpC 123 /ntilde put SpC 124 /sterling put SpC 125 /exclamdown put SpC 126 /dieresis put UkC 124 /sterling put DaC 91 /AE put DaC 92 /Oslash put DaC 93 /Aring put DaC 123 /ae put DaC 124 /oslash put DaC 125 /aring put SeC 91 /Adieresis put SeC 92 /Odieresis put SeC 93 /Aring put SeC 123 /adieresis put SeC 124 /odieresis put SeC 125 /aring put 
  36. `72 80 div dup scale/ps 1 string def/rs 256 string def statusdict begin /waittimeout 370 def end /PS{mG/PSf exch def/PSj exch def/PSc exch def/PSs 0 def PSj 0 ne{PSc 1 sub -1 0{4 mul/PSt exch def PSt 3 add index PSt 3 add index sF PSt index dup cS PSs add/PSs exch def stringwidth pop PSf exch sub/PSf exch def}for}if
  37. PSj 3 eq{/PSs PSs 0 eq{1}{PSf PSs div}ifelse def}{/PSs 0 def}ifelse PSj 2 eq{PSf 0 rmoveto}if PSj 1 eq{PSf 2 idiv 0 rmoveto}if
  38. PSc 1 sub -1 0{4 mul/PSt exch def PSt 3 add index PSt 3 add index sF PSt 1 add index/PSb exch def 0 PSb neg rmoveto PSt index PSs 0 32 4 -1 roll currentpoint pop/PSx exch def widthshow cf 128 and 0 ne{gsave currentpoint newpath moveto currentfont begin matrix currentmatrix FontMatrix concat FontInfo begin 0 UnderlinePosition rmoveto UnderlineThickness 0 FontMatrix transform pop setlinewidth end end setmatrix currentpoint pop PSx exch sub 0 rlineto stroke grestore}if 0 PSb rmoveto}for PSc 4 mul{pop}repeat}def
  39. /cS{/cSt 0 def{32 eq{/cSt cSt 1 add def}if}forall cSt}def
  40. /sF{/MSFsize exch def dup 63 and /MSFforeign exch def /MSFfont exch def curSize MSFsize ne cf 65407 and MSFfont 65407 and ne or {fonts MSFfont -8 bitshift get MSFfont 64 and 0 ne{/sFf mO/sFf}if MSFforeign 0 ne MSFfont -10 bitshift 2 ne and {/sFx MSFforeign mF /sFx }if findfont MSFsize scalefont setfont}if/cf MSFfont def/curSize MSFsize def}def
  41. /mOd 5 dict def/mO{mOd begin/mOn exch def/mO1 exch def/mO2 mO1 findfont def/mOo mO2 maxlength 1 add dict def mO2{exch dup/FID ne{exch mOo 3 1 roll put}{pop pop}ifelse}forall mOo/FontName mOn put mOo/PaintType 2 put mOo/StrokeWidth 0 put mOn mOo definefont pop end}def
  42. /mF{/mfT exch def exch findfont dup length dict /newdict exch def {1 index /FID ne {newdict 3 1 roll put} {pop pop} ifelse }forall newdict /Encoding mfT 0 eq {AmC}{mfT 1 eq {GeC}{mfT 2 eq {FrC}{mfT 3 eq {DaC}{mfT 4 eq {ItC}{mfT 5 eq {SwC}{mfT 6 eq {SpC}{mfT 7 eq {UkC}{mfT 8 eq {DaC}{mfT 9 eq {DaC}{SeC}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse}ifelse put newdict definefont pop }def
  43. /mG{gG moveto}def/gG{75 div 80 mul 80 10.75 mul exch sub exch 80 0.25 mul add exch}def
  44. /gS{currentfile ps readhexstring pop}def/PC{gsave/PCi exch def/PCt exch def/PCs exch def gG translate/PCy exch def/PCx exch def/PCf exch def 0 1 translate PCf 0 ne{PCy 2 div 0 translate}if PCy PCt div PCs mul dup PCx ge{pop PCx}if PCy scale PCs PCt true[PCs 0 0 PCt neg 0 PCi]PCf 0 ne{[1 0 0.57735 1 0 0]matrix concatmatrix}if{gS}imagemask grestore}def
  45. /PP{/PPs 0 def/PPp 0 def gsave gG translate/PPy exch def/PPx exch def 0 PPy neg translate PPx PPy scale PPx PPy true[PPx 0 0 PPy neg 0 PPy]{PPD}imagemask grestore{currentfile read{32 eq{exit}if}{exit}ifelse}loop}def
  46. /PPD{{PPs 127 and 0 eq{/PPs PPG def PPs 220 ge{/PPb PPs 220 sub def/PPc PPb def/PPp PPG def/PPf true def/PPs 0 def}{PPs 128 lt{/PPr PPG def}if}ifelse}{exit}ifelse}loop PPs 128 ge{PPG}{PPr}ifelse/PPs PPs 1 sub def/PPt exch def ps 0 PPt put ps}def
  47. /PPG{PPp 0 ne{PPf{rs PPc gS 0 get put}if rs PPc get/PPc PPc 1 sub def PPc 0 eq{/PPp PPp 1 sub def/PPf false def/PPc PPb def}if}{gS 0 get}ifelse}def
  48. January
  49. February
  50. March
  51. April
  52. August
  53. September
  54. October
  55. November
  56. December
  57. Print...
  58. Scale Largest Point Size
  59. From Page
  60. To Page
  61. Copies
  62. Overlay
  63. geoLaser
  64. Current file: 
  65. Initializing LaserWriter...
  66. geoLaser
  67. Copyright 1986 Berkeley Softworks
  68. Write Image
  69. Insert new disk into disk drive.
  70. Data file is beyond V2.1
  71. On disk:
  72. opening file
  73.  Printing...
  74. Choose RS-232 Serial Transfer Rate
  75. 1200 Baud (Blanks Screen)
  76. 9600 Baud (Blanks Screen)
  77.